home *** CD-ROM | disk | FTP | other *** search
Wrap
; *** Gallery installation scipt *** ; *** Set some useful messages *** ;**************************************************************************** ; ; English texts ; (if (not (= @language "deutsch")) ( (set #install-msg (cat "\n\nGallery installation script.\n" "This script installs Gallery on your Amiga.\n\n" "Read the documentation for\n" "more information on the distribution\n" "and commercial usage.\n\n" "Gallery © 1996,97 by Markus Hillenbrand\n" "All rights reserved.")) (set #welcome-msg "Welcome to the Gallery installation!") (set #bad-kick "You must be using Kickstart 39 to use this program!") (set #bad-cpu "You must at least have a 68020 processor!"); (set #bad-installer "You must be using Installer 43.x to install Gallery!") (set #ask-prog-dir "Where shall I install Gallery ?\n(A drawer will NOT be created)") (set #gfx-note "Please look into the docs to set the preferences correctly.") (set #copy-msg "Copying files to ") (set #ask-help-dir "Where shall I install the AmigaGuide-HELP file?)") (set #ask-tmp-dir "Please select a directory with at least 4 MByte of free space\nwhich will be used for JPEG (de)coding.\nThis must not be RAM:") (set #tmp-msg "Adding this line to your S:User-Startup:\n\n"); ) ) ;**************************************************************************** ; ; Deutsche Texte ; (if (= @language "deutsch") ( (set #install-msg (cat "\n\nGallery Installations Skript.\n" "Dieses Skipt installiert Gallery auf Ihrem Amiga.\n\n" "Bitte lesen Sie die Dokumentation für\n" "weitergehende Informationen über Vertrieb\n" "und kommerzielle Nutzung.\n\n" "Gallery © 1996,97 by Markus Hillenbrand\n" "Alle Rechte vorbehalten.")) (set #welcome-msg "Willkommen bei der Installation zu Gallery!") (set #bad-kick "Sie müssen Kickstart 39 haben, um das Programm zu benutzen!") (set #bad-cpu "Sie müssen mindesten einen 68020 Prozessor besitzen!"); (set #bad-installer "Sie müssen den Installer 43.x haben, um Gallery zu installieren!") (set #ask-prog-dir "Wo soll ich Gallery installieren?\n(Ein Verzeichnis wird NICHT angelegt)") (set #gfx-note "Bitte schauen Sie in die Dokumentation für die korrekten Einstellungen."); (set #copy-msg "Kopiere Datei nach ") (set #ask-help-dir "Wo soll ich die AmgaGuide-HELP Datei hinkopieren?") (set #ask-tmp-dir "Bitte wählen Sie ein Verzeichnis mit mind. 4 MByte freiem Platz,\num JPEG Bilder zu de(kodieren).\nDies darf nicht im RAM: liegen.") (set #tmp-msg "Füge folgende Zeile in Ihre S:User-Startup ein:\n\n") ) ) ; *** Welcome the user to the installation (message #install-msg) ; *** Check for Kickstart version *** (if (< (/ (getversion) 65536) 39) ((abort #bad-kick)) ) ; *** Check for Installer-Version *** (if (< (/ @installer-version 65536) 43) ((abort #bad-installer)) ) ; *** Check for CPU *** (if (patmatch "68000|68010" (database "cpu")) (abort #bad-cpu) ) ; *** Check for the JPEGTMP: Assign ( if (exists "JPEGTMP:" (noreq) ) ( set tmp: "") ( (set #tmp (askdir (prompt #ask-tmp-dir) (help @ask-dir-help) (default "Work:") ) ) (startup "JPEG Codec" (command (cat "Assign JPEGTMP: " #tmp)) (prompt (cat #tmp-msg "Assign JPEGTMP: " #tmp) ) (help @startup-help) ) (makeassign "JPEGTMP" #tmp) ) ) ; *** Delete old version in C: (if (exists "C:Gallery") (delete "C:Gallery")) ; *** Ask the user for the default-destinations *** (set #prog-dest (askdir (prompt #ask-prog-dir) (help @askdir-help) (default "work:Gallery") ) ) (set #help-dest (askdir (prompt #ask-help-dir) (help @askdir-help) (default "HELP:english") ) ) ; *** Copy the neccesary files (copylib (prompt #copy-msg "SYS:Classes/Images") (help @copylib-help) (source "classes/images/fillbar.image") (dest "SYS:Classes/images") ) (copylib (prompt #copy-msg "SYS:Classes") (help @copylib-help) (source "classes/codec.class") (dest "SYS:Classes") ) (copylib (prompt #copy-msg "Classes/codecs") (help @copylib-help) (source "classes/codecs/picture.codec") (dest "SYS:Classes/codecs") ) (copylib (prompt #copy-msg "Classes/codecs") (help @copylib-help) (source "classes/codecs/jpeg.codec") (dest "SYS:Classes/codecs") ) (set #render-lib "libs/render.library_68020") (if (patmatch "68881" (database "fpu")) (set #render-lib "libs/render.library_FPU")) (if (patmatch "68882" (database "fpu")) (set #render-lib "libs/render.library_FPU")) (if (patmatch "68040" (database "cpu")) (set #render-lib "libs/render.library_68040")) (if (patmatch "68060" (database "cpu")) (set #render-lib "libs/render.library_68060")) (set #guigfx-lib "libs/guigfx.library") (if (patmatch "68040" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68040")) (if (patmatch "68060" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68060")) (copylib (prompt #copy-msg "LIBS:") (help @copylib-help) (source #render-lib) (dest "LIBS:") (newname "render.library") ) (copylib (prompt #copy-msg "LIBS:") (help @copylib-help) (source #guigfx-lib) (dest "LIBS:") (newname "guigfx.library") ) (copylib (prompt #copy-msg "LIBS:") (help @copylib-help) (source "libs/tower.library") (dest "LIBS:") ) ; *** Copy the program *** (copyfiles (prompt #copy-msg #lib-dest) (help @copyfiles-help) (source "gfx") (infos) (all) (dest (tackon #prog-dest "gfx")) ) (copyfiles (prompt #copy-msg #lib-dest) (help @copyfiles-help) (source "projects") (infos) (all) (dest (tackon #prog-dest "projects")) ) (copyfiles (prompt #copy-msg #lib-dest) (help @copyfiles-help) (source "pattern") (infos) (all) (dest (tackon #prog-dest "pattern")) ) (copyfiles (prompt #copy-msg #lib-dest) (help @copyfiles-help) (source "sound") (infos) (all) (dest (tackon #prog-dest "sound")) ) (copyfiles (prompt #copy-msg #lib-dest) (help @copyfiles-help) (source "tools") (infos) (all) (dest (tackon #prog-dest "tools")) ) (copyfiles (prompt #copy-msg #lib-dest) (help @copyfiles-help) (source "Gallery") (dest #prog-dest) (infos) (noposition) ) ; *** Copy the help file *** (copyfiles (prompt #copy-msg #help-dest) (help @copyfiles-help) (source "Gallery.guide") (dest #help-dest) ) (message #gfx-note) ; ** set return value of installer (set @default-dest #prog-dest)